home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
1159.ZIP
/
OSSFMTMF.PRG
< prev
next >
Wrap
Text File
|
1986-11-20
|
4KB
|
169 lines
SET SAFETY OFF
N4='K'
DO WHILE N4#'STOP'
CLEAR
@ 1,20 SAY 'Data base in use: '
?? OSS
?
DO CASE
CASE MULTTV=1
?'Identical designations in the '
?? TVANUMBER
??' field were found.'
CASE MULTSN=1
?'Identical designations in the '
?? SERIALNUM
??' field were found.'
ENDCASE
@ 5,4 SAY 'What would you like to do ?'
DO WHILE N4#'A'.AND.N4#'B'.AND.N4#'C'.AND.N4#'D'.AND.LEN(TRIM(N4))#0;
.AND.N4#'E'.AND.N4#'F'
@ 6,0 CLEAR
?'A) Print out the records.'
?
?'B) View the records on the screen.'
?
?'C) Both view the records on the screen and print them out.'
?
?'D) Modify the information in the records or delete records.'
?
?'E) Make a backup copy of all records in this data base.'
?
?'F) QUIT (with a backup copy option)'
?
?
?' Press "RETURN" to return to the previous menu.'
?
?' Press "R" to return to the main menu.'
WAIT ' ' TO N4
??' WORKING . . .'
N4=UPPER(N4)
IF N4='R'
N4='Z'
CLOSE DATABASES
RETURN TO MASTER
ENDIF
ENDDO
DO CASE
CASE N4='A'
CLEAR
@ 7,32 SAY 'WORKING . . .'
@ 10,8 SAY 'Please do not press any keys until the next option appears.'
PRINTOUT=1
VIEW=0
IF MULTTV=0.AND.MULTSN=0
DO OSSPRNSE
ELSE
GLCALDU=0
ADDFILE=0
MODFILE=0
DO REPINSTP
ENDIF
CASE N4='B'
CLEAR
@ 7,32 SAY 'WORKING . . .'
@ 10,8 SAY 'Please do not press any keys until the next option appears.'
PRINTOUT=0
VIEW=1
IF MULTTV=0.AND.MULTSN=0
DO OSSPRNSE
ELSE
GLCALDU=0
ADDFILE=0
MODFILE=0
DO REPINSTP
ENDIF
CASE N4='C'
CLEAR
@ 7,32 SAY 'WORKING . . .'
@ 10,8 SAY 'Please do not press any keys until the next option appears.'
PRINTOUT=1
VIEW=1
IF MULTTV=0.AND.MULTSN=0
DO OSSPRNSE
ELSE
GLCALDU=0
ADDFILE=0
MODFILE=0
DO REPINSTP
ENDIF
CASE N4='D'
CLEAR
@ 7,32 SAY 'WORKING . . .'
@ 10,8 SAY 'Please do not press any keys until the next option appears.'
DO OSSMODMF
N4='Z'
CASE N4='E'
CLEAR
@ 5,0
?' This procedure copies all information for this data base FROM'
?' your fixed disk TO one or more floppy disks, depending on the'
?' size of this particular data base. In the process of doing this,'
?' the data (if any) which is currently on the FLOPPY DISKETTE(S)'
?' may be destroyed.'
?
?' Each data base which is backed up must be backed up on a separate'
?' floppy diskette (or a separate set of floppy diskettes).'
?
?
?
?' Please place a formatted floppy disk into drive "A" and'
?
?' press any key other than "RETURN" to continue. Press'
?
WAIT ' "RETURN" to abort this procedure and return to the menu.' TO N6
IF ASC(N6)=0
N4='Z'
LOOP
ENDIF
N4='Z'
DO DATABACK
LOOP
CASE N4='F'
?
?
DO WHILE N4#'Y'.AND.N4#'N'
CLEAR
@ 5,0
?' This procedure copies all information for this data base FROM'
?' your fixed disk TO one or more floppy disks, depending on the'
?' size of this particular data base. In the process of doing this,'
?' the data (if any) which is currently on the FLOPPY DISKETTE(S)'
?' may be destroyed.'
?
?' Each data base which is backed up must be backed up on a separate'
?' floppy diskette (or a separate set of floppy diskettes).'
?
?
WAIT ' Do you wish to make a backup copy of this data base ? (Y/N)';
TO N4
N4=UPPER(N4)
ENDDO
IF N4='Y'
?
?
?' Please place a formatted diskette into drive "A."'
?
?
WAIT
DO DATABACK
ENDIF
CLEAR ALL
RUN CD\
SET COLOR TO
QUIT
CASE LEN(TRIM(N4))=0
CLOSE DATABASES
SELECT 2
USE REPWORK
SELECT 1
USE &DBNAME INDEX &INDEX1,&INDEX2
N=0
NP=N
RETURN
ENDCASE
N4='K'
ENDDO
RETURN